Building Homes of Our Own/Building Homes of our Own.iso/setup/data1.cab/Everything/working/siteSel.dxr/exitFrameScripts_5.ls

Text File | 2002-09-25 | 689 b | 30 lines

property startTicks, nextPlay

on beginSprite me
  global gNeighborAnimateMan, gSporadicSoundMan
  if movieWaiting(gNeighborAnimateMan) then
    playLotSound(gSporadicSoundMan)
  end if
  startTicks = the ticks
end

on exitFrame me
  global gNeighborAnimateMan, gSporadicSoundMan
  if not movieWaiting(gNeighborAnimateMan) then
    go(the frame)
    if not soundPlaying(gSporadicSoundMan) then
      if the ticks > (startTicks + nextPlay) then
        playLotSound(gSporadicSoundMan)
        startTicks = the ticks
        nextPlay = random(900) + 1800
      end if
    end if
  else
    if ClearToPlayQT() then
      go(the frame + 1)
    else
      go(the frame)
    end if
  end if
end